TWorthless = class(TCustomControl)
private
	FSomeObject: TSomeObject;

     procedure SetSomeObject(Value: TSomeObject);
 
public
	constructor Create(AOwner: TComponent); override;
	destructor Destroy; override;
published
	property SomeObject: TSomeObject 
                   read FSomeObject write SetSomeObject;
end;
